home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / msj / v06n06 / intnat.exe / INTERN.EXE / WINUTILS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-11-01  |  1.6 KB  |  74 lines
  1. /* 
  2.  * Useful utilities for INTERNAT
  3.  *
  4.  * William S. Hall
  5.  * 3665 Benton Street, #66
  6.  * Santa Clara, CA 95051
  7.  *
  8.  */
  9.  
  10. #define NOCOMM
  11. #define NOKANJI
  12. #define NOSOUND
  13. #include <windows.h>
  14. #include <stdarg.h>
  15. #include <stdio.h>
  16. #include "winutils.h"
  17.  
  18. /* 
  19.  * This function replaces printf.
  20.  * To see the results on the secondary monitor use OX.SYS
  21.  * Do NOT run Windows with redirection to AUX.
  22.  * Use dbs just like printf
  23.  * Example dbs("function foo %d %s, myint, mystring);
  24.  */
  25. void FAR _cdecl dbs(const char *fmt, ...)
  26. {
  27.     char buf[255];
  28.  
  29.     va_list arg_ptr;
  30.  
  31.     va_start(arg_ptr, fmt);
  32.     vsprintf(buf, fmt, arg_ptr);
  33.     va_end(arg_ptr);
  34.  
  35.     OutputDebugString(buf);
  36.  
  37. }
  38.  
  39. /* Show a modal dialog box */
  40. int FAR OpenDlgBox(HWND hWnd, FARPROC fpProc, WORD boxnum, HANDLE hRC)
  41. {
  42.  
  43.     FARPROC fp;
  44.     int result;
  45.     HANDLE hInst = GetWindowWord(hWnd, GWW_HINSTANCE);
  46.  
  47.   /* make a proc instance for the about box window function */
  48.     fp = MakeProcInstance(fpProc, hInst);
  49.   /* create a modal dialog box */
  50.     result = DialogBox(hRC, MAKEINTRESOURCE(boxnum),hWnd,fp);
  51.     FreeProcInstance(fp);
  52.     return result;
  53.  
  54. }
  55.  
  56. /* Show a modal dialog box with parameters */
  57. int FAR OpenDlgBoxParam(HWND hWnd, FARPROC fpProc, WORD boxnum,
  58.             HANDLE hRC, LONG lParam)
  59. {
  60.  
  61.     FARPROC fp;
  62.     int result;
  63.     HANDLE hInst = GetWindowWord(hWnd, GWW_HINSTANCE);
  64.  
  65.   /* make a proc instance for the about box window function */
  66.     fp = MakeProcInstance(fpProc, hInst);
  67.   /* create a modal dialog box */
  68.     result = DialogBoxParam(hRC, MAKEINTRESOURCE(boxnum),hWnd,fp,lParam);
  69.     FreeProcInstance(fp);
  70.     return result;
  71.  
  72. }
  73.  
  74.